home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / libs / tsipp / tsipp.lha / tsipp3.0a / demos / torustest.tcl < prev    next >
Encoding:
Text File  |  1992-11-02  |  897 b   |  26 lines
  1. #==============================================================================
  2. #                               torustest.tcl
  3. #------------------------------------------------------------------------------
  4. # A port of SIPP demo program torustest.c to Tcl-SIPP.
  5. #------------------------------------------------------------------------------
  6. # $Id: torustest.tcl,v 2.0 1992/11/02 03:55:35 markd Rel $
  7. #------------------------------------------------------------------------------
  8.  
  9. source util.tcl
  10. ParseArgs
  11.  
  12. set SMALLRES 15
  13. set BIGRES   40
  14.  
  15.  
  16. SippLightSourceCreate { 1.0  1.0 1.0} {0.9 0.9 0.9} DIRECTION
  17. SippLightSourceCreate {-1.0 -1.0 0.5} {0.4 0.4 0.4} DIRECTION
  18.  
  19. set shader [SippShaderBasic 0.5 0.6 0.2 {0.6 0.3 0.5}]
  20.  
  21. SippObjectAddSubobj WORLD [SippTorus 1.0 0.4 $BIGRES $SMALLRES $shader WORLD]
  22.  
  23. SippCameraParams STDCAMERA {4.0 0.0 4.5}  {0.5 0.0 0.0} {0.0 0.0 1.0} 0.4
  24.  
  25. DoRendering "torus"
  26.